<html><head><title>Ftp.pb</title></head>
<body bgcolor="#FFFFDF" link="#009999" vlink="#006666" alink="#006666">
<pre><font face="Courier New, Courier, mono"size="2"><font color="#006666">;
</font><font color="#006666">; ------------------------------------------------------------
</font><font color="#006666">;
</font><font color="#006666">;   PureBasic - Ftp example file
</font><font color="#006666">;
</font><font color="#006666">;    (c) Fantaisie Software
</font><font color="#006666">;
</font><font color="#006666">; ------------------------------------------------------------
</font><font color="#006666">;
</font>
<font color="#006666">InitNetwork</font>()

<b><font color="#006666">If</font></b> <font color="#006666">OpenFTP</font>(0, "127.0.0.1", "test", "test", 0)

  Result =<font color="#006666"> SendFTPFile</font>(0,<font color="#006666"> OpenFileRequester</font>("Choose a file to send", "", "*.*", 0), "purebasic_sent.file", 1)
  
  <b><font color="#006666">Repeat</font></b>
    <b><font color="#006666">Debug</font></b> <font color="#006666">FTPProgress</font>(0)
<font color="#006666">    Delay</font>(300)
  <b><font color="#006666">Until</font></b> <font color="#006666">FTPProgress</font>(0) = -3 <b><font color="#006666">Or</font></b> <font color="#006666">FTPProgress</font>(0) = -2

  <b><font color="#006666">Debug</font></b> "finished"
  
<b><font color="#006666">Else</font></b>
<font color="#006666">  MessageRequester</font>("Error", "Can't connect to the FTP server")
<b><font color="#006666">EndIf</font></b>
</font></pre>
</body></html>
